home *** CD-ROM | disk | FTP | other *** search
/ Aminet 4 / Aminet 4 - November 1994.iso / aminet / comm / ums / ums109_2.lha / Install-Support / MakeFidoDomain.rexx < prev   
OS/2 REXX Batch file  |  1993-10-11  |  350b  |  14 lines
  1. /* convert fido address to domain address */
  2.  
  3. arg fido
  4.  
  5. parse var fido zone ":" net "/" node "." point
  6.  
  7. if point ~= "" then do
  8.   domain = "p" || point || ".f" || node || ".n" || net || ".z" || zone || ".fidonet.org"
  9. end; else do
  10.   domain = "f" || node || ".n" || net || ".z" || zone || ".fidonet.org"
  11. end
  12.  
  13. address command SetEnv "fido-domain" domain
  14.